home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aclock / form1.frm next >
Text File  |  1999-09-04  |  10KB  |  332 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form1 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   4200
  7.    ClientLeft      =   312
  8.    ClientTop       =   612
  9.    ClientWidth     =   7848
  10.    BeginProperty Font 
  11.       Name            =   "Arial"
  12.       Size            =   7.8
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Form1.frx":0000
  20.    KeyPreview      =   -1  'True
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   4200
  24.    ScaleWidth      =   7848
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin VB.Timer Timer1 
  27.       Interval        =   1000
  28.       Left            =   120
  29.       Top             =   960
  30.    End
  31.    Begin MSComDlg.CommonDialog CMDialog1 
  32.       Left            =   120
  33.       Top             =   480
  34.       _ExtentX        =   677
  35.       _ExtentY        =   677
  36.       _Version        =   393216
  37.       Max             =   36
  38.       Min             =   8
  39.    End
  40.    Begin VB.Label cap2 
  41.       AutoSize        =   -1  'True
  42.       Caption         =   "Date:"
  43.       Height          =   192
  44.       Left            =   120
  45.       TabIndex        =   5
  46.       Top             =   2280
  47.       Width           =   372
  48.    End
  49.    Begin VB.Label Label2 
  50.       BackColor       =   &H80000014&
  51.       BorderStyle     =   1  'Fixed Single
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   36
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H80000007&
  62.       Height          =   1920
  63.       Left            =   600
  64.       TabIndex        =   1
  65.       Top             =   2160
  66.       Width           =   7164
  67.    End
  68.    Begin VB.Label Label1 
  69.       BackColor       =   &H80000014&
  70.       BorderStyle     =   1  'Fixed Single
  71.       BeginProperty Font 
  72.          Name            =   "Arial"
  73.          Size            =   36
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H80000007&
  81.       Height          =   1920
  82.       Left            =   600
  83.       TabIndex        =   0
  84.       Top             =   120
  85.       Width           =   7164
  86.    End
  87.    Begin VB.Label Label3 
  88.       BackColor       =   &H80000014&
  89.       BorderStyle     =   1  'Fixed Single
  90.       BeginProperty Font 
  91.          Name            =   "Arial"
  92.          Size            =   36
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H000000FF&
  100.       Height          =   1920
  101.       Left            =   600
  102.       TabIndex        =   2
  103.       Top             =   120
  104.       Width           =   7164
  105.    End
  106.    Begin VB.Label Label4 
  107.       BackColor       =   &H80000014&
  108.       BorderStyle     =   1  'Fixed Single
  109.       BeginProperty Font 
  110.          Name            =   "Arial"
  111.          Size            =   36
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H80000007&
  119.       Height          =   1920
  120.       Left            =   600
  121.       TabIndex        =   3
  122.       Top             =   2160
  123.       Width           =   7164
  124.    End
  125.    Begin VB.Label cap 
  126.       AutoSize        =   -1  'True
  127.       Caption         =   "Time:"
  128.       Height          =   192
  129.       Left            =   120
  130.       TabIndex        =   4
  131.       Top             =   120
  132.       Width           =   384
  133.    End
  134.    Begin VB.Menu File 
  135.       Caption         =   "&File"
  136.       Begin VB.Menu cmdQuit 
  137.          Caption         =   "Quit"
  138.          Shortcut        =   ^Q
  139.       End
  140.    End
  141.    Begin VB.Menu Options 
  142.       Caption         =   "&Option's"
  143.       Begin VB.Menu Font 
  144.          Caption         =   "&Font"
  145.          Begin VB.Menu Font1 
  146.             Caption         =   "Time Font"
  147.          End
  148.          Begin VB.Menu Font2 
  149.             Caption         =   "Date Font"
  150.          End
  151.       End
  152.       Begin VB.Menu Color 
  153.          Caption         =   "&Color's"
  154.          Begin VB.Menu timec 
  155.             Caption         =   "Time"
  156.             Begin VB.Menu Color1 
  157.                Caption         =   "Background"
  158.             End
  159.             Begin VB.Menu Color3 
  160.                Caption         =   "Foreground"
  161.             End
  162.          End
  163.          Begin VB.Menu Datec 
  164.             Caption         =   "Date"
  165.             Begin VB.Menu Color2 
  166.                Caption         =   "Background"
  167.             End
  168.             Begin VB.Menu Color4 
  169.                Caption         =   "Foreground"
  170.             End
  171.          End
  172.       End
  173.    End
  174.    Begin VB.Menu Show 
  175.       Caption         =   "&Show"
  176.       Begin VB.Menu Option1 
  177.          Caption         =   "Show Time"
  178.       End
  179.       Begin VB.Menu Option2 
  180.          Caption         =   "Show Date"
  181.       End
  182.       Begin VB.Menu Option3 
  183.          Caption         =   "Show Both"
  184.       End
  185.       Begin VB.Menu Option4 
  186.          Caption         =   "Show None"
  187.       End
  188.    End
  189.    Begin VB.Menu About 
  190.       Caption         =   "&About"
  191.       Begin VB.Menu cmdAbout 
  192.          Caption         =   "&About Clock"
  193.       End
  194.    End
  195. End
  196. Attribute VB_Name = "Form1"
  197. Attribute VB_GlobalNameSpace = False
  198. Attribute VB_Creatable = False
  199. Attribute VB_PredeclaredId = True
  200. Attribute VB_Exposed = False
  201. Private Sub cmdAbout_Click()
  202. frmAbout.Show
  203. End Sub
  204.  
  205. Private Sub cmdQuit_Click()
  206.     Dim Msg, Response   ' Declare variables.
  207.     Msg = "Are you sure you want to quit?"
  208.     Response = MsgBox(Msg, vbQuestion + vbYesNo, "KF4ZPB Clock")
  209.     Select Case Response
  210.         Case vbNo
  211.             Cancel = -1
  212.             Msg = "Quit has been canceled."
  213.         Case vbYes
  214.         Unload Form1
  215.         Unload frmAbout
  216.         Unload frmSupport
  217. End
  218. End Select
  219. End Sub
  220.  
  221. Private Sub Color3_Click()
  222. On Error Resume Next
  223. CMDialog1.Flags = &H1&
  224. CMDialog1.Action = 3
  225. Label1.ForeColor = CMDialog1.Color
  226. Label3.ForeColor = CMDialog1.Color
  227. End Sub
  228.  
  229. Private Sub Color4_Click()
  230. On Error Resume Next
  231. CMDialog1.Flags = &H1&
  232. CMDialog1.Action = 3
  233. Label2.ForeColor = CMDialog1.Color
  234. Label4.ForeColor = CMDialog1.Color
  235. End Sub
  236.  
  237. Private Sub Font1_Click()
  238. On Error Resume Next
  239. CMDialog1.Flags = &H1&
  240. CMDialog1.Action = 4
  241. Label1.FontName = CMDialog1.FontName
  242. Label1.FontSize = CMDialog1.FontSize
  243. Label1.FontBold = CMDialog1.FontBold
  244. Label1.FontItalic = CMDialog1.FontItalic
  245. Label1.FontUnderline = CMDialog1.FontUnderline
  246. Label1.FontStrikethru = CMDialog1.FontStrikethru
  247. Label3.FontName = CMDialog1.FontName
  248. Label3.FontSize = CMDialog1.FontSize
  249. Label3.FontBold = CMDialog1.FontBold
  250. Label3.FontItalic = CMDialog1.FontItalic
  251. Label3.FontUnderline = CMDialog1.FontUnderline
  252. Label3.FontStrikethru = CMDialog1.FontStrikethru
  253. End Sub
  254. Private Sub Font2_Click()
  255. On Error Resume Next
  256. CMDialog1.Flags = &H1&
  257. CMDialog1.Action = 4
  258. Label2.FontName = CMDialog1.FontName
  259. Label2.FontSize = CMDialog1.FontSize
  260. Label2.FontBold = CMDialog1.FontBold
  261. Label2.FontItalic = CMDialog1.FontItalic
  262. Label2.FontUnderline = CMDialog1.FontUnderline
  263. Label2.FontStrikethru = CMDialog1.FontStrikethru
  264. Label4.FontName = CMDialog1.FontName
  265. Label4.FontSize = CMDialog1.FontSize
  266. Label4.FontBold = CMDialog1.FontBold
  267. Label4.FontItalic = CMDialog1.FontItalic
  268. Label4.FontUnderline = CMDialog1.FontUnderline
  269. Label4.FontStrikethru = CMDialog1.FontStrikethru
  270. End Sub
  271. Private Sub Color1_Click()
  272. On Error Res